home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_03_1985_Transactor_Publishing.d64 / expeval 64 ldr (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  934b  |  33 lines
  1. 0 rem the transactor volume 5 issue 04 page 30
  2. 100 rem* data loader for "[197][216][208][197][214][193][204]" *
  3. 110 :
  4. 120 cs=0    :rem* checksum     *
  5. 130 os=49152:rem* object start *
  6. 135 :
  7. 140 for r=0to1:read b:ifb>=0then poke os,b:os=os+1:cs=cs+b
  8. 160 r=-(b<0):next r
  9. 180 :
  10. 190 if cs<>10928 then print"***** checksum error *****": end
  11. 200 :
  12. 210 poke 785,0: poke 786,192
  13. 220 print"** call [197][216][208][197][214][193][204] with:"
  14. 225 print"** '[213][211][210](0),string variable'
  15. 230 :
  16. 240 [128]
  17. 1000 [131]  32, 253, 174,  32, 158, 173
  18. 1010 [131]  32, 143, 173, 160,   0, 177
  19. 1020 [131] 100, 170, 200, 177, 100, 133
  20. 1030 [131] 251, 200, 177, 100, 133, 252
  21. 1040 [131] 160,   0, 185,   0,   2, 153
  22. 1050 [131]  60,   3, 177, 251, 153,   0
  23. 1060 [131]   2, 200, 192,  80, 208, 240
  24. 1070 [131] 169,   0, 157,   0,   2, 165
  25. 1080 [131] 122,  72, 165, 123,  72, 169
  26. 1090 [131]   0, 133, 122, 169,   2, 133
  27. 1100 [131] 123,  32, 121, 165, 169,   0
  28. 1110 [131] 133, 122, 169,   2, 133, 123
  29. 1120 [131]  32, 158, 173, 104, 133, 123
  30. 1130 [131] 104, 133, 122, 162,  79, 189
  31. 1140 [131]  60,   3, 157,   0,   2, 202
  32. 1150 [131]  16, 247,  96,  -1
  33.